﻿Imports System.Windows.Forms

Public Class MDIParent1

    Private Sub CerrarSesiónToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CerrarSesiónToolStripMenuItem.Click
        Dim form1 As New qcerrarsesion
        form1.MdiParent = Me
        form1.Show()

    End Sub

    Private Sub MDIParent1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.CenterToScreen()

    End Sub

    Private Sub RedoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedoToolStripMenuItem.Click
        Dim form2 As New InsertarProducto

        form2.MdiParent = Me

        form2.Show()



    End Sub

    

    Private Sub ActualizarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim form4 As New ActualizarProducto
        form4.MdiParent = Me
        form4.Show()
    End Sub

    Private Sub EliminarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EliminarToolStripMenuItem.Click
        Dim form5 As New EliminarProducto
        form5.MdiParent = Me
        form5.Show()
    End Sub

    Private Sub BuscarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarToolStripMenuItem.Click
        Dim form6 As New BuscarProducto
        form6.MdiParent = Me
        form6.Show()
    End Sub


    Private Sub InsertarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InsertarToolStripMenuItem.Click
        Dim form7 As New InsertarVenta
        form7.MdiParent = Me
        form7.Show()
    End Sub

    

    

    Private Sub BuscarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarToolStripMenuItem1.Click
        Dim form10 As New BuscarUsuario
        form10.MdiParent = Me
        form10.Show()
    End Sub

   

    Private Sub InsertarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InsertarToolStripMenuItem1.Click
        Dim form12 As New InsertarServicio
        form12.MdiParent = Me
        form12.Show()
    End Sub

   

    Private Sub EliminarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EliminarToolStripMenuItem1.Click
        Dim form14 As New EliminarServicio
        form14.MdiParent = Me
        form14.Show()
    End Sub

    Private Sub InsertarToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InsertarToolStripMenuItem2.Click
        Dim form15 As New InsertarPedido
        form15.MdiParent = Me
        form15.Show()
    End Sub

    

    Private Sub InsertarToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InsertarToolStripMenuItem3.Click
        Dim form17 As New InsertarPaquete
        form17.MdiParent = Me
        form17.Show()
    End Sub

    

    Private Sub ActualizarToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim form19 As New ActualizarPaquete
        form19.MdiParent = Me
        form19.Show()
    End Sub

    Private Sub EliminarToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EliminarToolStripMenuItem2.Click
        Dim form20 As New EliminarPaquete
        form20.MdiParent = Me
        form20.Show()
    End Sub


    Private Sub BuscarToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarToolStripMenuItem2.Click
        Dim form30 As New BuscarPaquete
        form30.MdiParent = Me
        form30.Show()
    End Sub

    Private Sub BuscarToolStripMenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarToolStripMenuItem3.Click
        Dim form31 As New BuscarPedido
        form31.MdiParent = Me
        form31.Show()
    End Sub

    Private Sub BuscarToolStripMenuItem4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BuscarToolStripMenuItem4.Click
        Dim form32 As New BuscarVenta
        form32.MdiParent = Me
        form32.Show()
    End Sub

    Private Sub WindowsMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowsMenu.Click

    End Sub

    Private Sub ListarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListarToolStripMenuItem.Click

        Dim form33 As New ListarUsuario
        form33.MdiParent = Me
        form33.Show()
    End Sub
End Class
